home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / WINWORDS / WINE02BX.ZIP / LISP / EMULATOR / VI.ELC < prev    next >
Text File  |  1993-03-28  |  38KB  |  361 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 14:45:03 1992
  2. ;;; from file /u/jwz/emacs19/lisp/emulators/vi.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (fset 'vi-switch-mode #[(arg mode-char) "└    ┬ !\"ë¼è┼É╞╟╚!!æ¬ì    \n╦ ╠\"ê═╬ !)ç" [lookup-key vi-tilde-map char-to-string mode-char mode-cmd "*Help*" princ substitute-command-keys "Possible major modes to switch to: \\{vi-tilde-map}" arg prefix-arg command-execute nil set-buffer-modified-p buffer-modified-p] 5 "\
  14. Switch the major mode of current buffer as specified by the following char \\{vi-tilde-map}" "P\nc"])
  15. (byte-code "└┴┬ \"¼å├ ┼┴#ê└ç" [where-is-internal vi-switch-mode current-local-map define-key ctl-x-map "~"] 4)
  16. (defvar vi-tilde-map nil "\
  17. Keymap used for \\[vi-switch-mode] prefix key.  Link to various major modes.")
  18. (byte-code "¼∩┴ ┬├─#ê┬┼╞#ê┬╟╚#ê┬╔╩#ê┬╦╠#ê┬═╬#ê┬╧╨#ê┬╤╥#ê┬╙╘#ê┬╒╓#ê┬╫╪#ê┬┘┌#ê┬█▄#ê┬▌▐#ê┬▀α#ê┬ßΓ#ê┬πΣ#ê┬σµ#ê┴ç" [vi-tilde-map make-keymap define-key "a" abbrev-mode "c" c-mode "d" vi-debugging "e" emacs-lisp-mode "f" auto-fill-mode "g" prolog-mode "h" hanoi "i" info-mode "l" lisp-mode "n" nroff-mode "o" overwrite-mode "O" outline-mode "P" picture-mode "r" vi-readonly-mode "t" text-mode "v" vi-mode "x" tex-mode "~" vi-back-to-old-mode] 4)
  19. (fset 'vi-debugging #[(arg) "½ä┴¬â\n?\n½ä├─!ç├┼!ç" [arg t debug-on-error message "Debug-on-error ..." "NO more debug-on-error"] 2 "\
  20. Toggle debug-on-error flag.  If prefix arg is given, set t." "P"])
  21. (fset 'vi-back-to-old-mode #[nil "¡É    ├ !ê╚╔ !ç" [vi-mode-old-major-mode vi-mode-old-mode-name mode-name use-local-map vi-mode-old-local-map major-mode vi-mode-old-case-fold case-fold-search set-buffer-modified-p buffer-modified-p] 2 "\
  22. Go back to the previous mode without setting up for insertion." nil])
  23. (fset 'vi-readonly-mode #[nil "?ëç" [buffer-read-only] 2 "\
  24. Toggle current buffer's readonly flag." nil])
  25. (defvar vi-com-map nil "\
  26. Keymap used in Evi's command state
  27. Command state includes most of the vi editing commands, with some Emacs
  28. command extensions.")
  29. (byte-code "└┴┬├#ê äé┼ ╞ ╟╚#ê╞ ╔╩#ê╞ ╦╠#ê╞ ═╬#ê╞ ╧╨#ê╞ ╤╥#ê╞ ╙╘#ê╞ ╒╓#ê╞ ╫╪#ê╞ ┘┌#ê╞ █▄#ê╞ ▌▐#ê╞ ▀α#ê╞ ß┌#ê╞ Γπ#ê╞ Σσ#ê╞ µτ#ê╞ ΦΘ#ê╞ Ωδ#ê╞ ∞φ#ê╞ ε∩#ê╞ ≡±#ê╞ ≥≤#ê╞ ⌠⌡#ê╞ ÷≈#ê╞ °∙#ê╞ ·√#ê╞ ⁿ²#ê╞ ■ #ê╞ ü@üA#ê╞ üB┴#ê╞ üCüD#ê╞ üEüF#ê╞ üGüH#ê╞ üIüJ#ê╞ üKüL#ê╞ üMüN#ê╞ üO²#ê╞ üPüQ#ê╞ üRüS#ê╞ üTüU#ê╞ üVüW#ê╞ üXα#ê╞ üYüZ#ê╞ ü[ü\\#ê╞ ü]ü^#ê╞ ü_ü`#ê╞ üaüb#ê╞ ücüd#ê╞ üeüd#ê╞ üfüd#ê╞ ügüd#ê╞ ühüd#ê╞ üiüd#ê╞ üjüd#ê╞ üküd#ê╞ ülüd#ê╞ ümün#ê╞ üoüp#ê╞ üqüF#ê╞ ürüF#ê╞ üsüF#ê╞ ütüu#ê╞ üvüw#ê╞ üxüy#ê╞ üzü{#ê╞ ü|ü}#ê╞ ü~▄#ê╞ üüÇ#ê╞ üüüé#ê╞ üâüä#ê╞ üàüå#ê╞ üçüê#ê╞ üëüè#ê╞ üï┴#ê╞ üîüì#ê╞ üÄüÅ#ê╞ üÉüæ#ê╞ üÆüô#ê╞ üöüò#ê╞ üûüù#ê╞ üÿüÖ#ê╞ üÜü¢#ê╞ ü£ü¥#ê╞ ü₧²#ê╞ üƒ┴#ê╞ üáüí#ê╞ üóüú#ê╞ üñüÑ#ê╞ üªüº #ê╞ ü¿ü⌐#ê╞ ü¬²#ê╞ ü½üF#ê╞ ü¼²#ê╞ ü¡ü«#ê╞ ü»┴#ê╞ ü░ü▒#ê╞ ü▓ü│#ê╞ ü┤ü╡#ê╞ ü╢üF#ê╞ ü╖üF#ê╞ ü╕ü╣#ê╞ ü║ü╗#ê╞ ü╝ü╜#ê╞ ü╛ü┐#ê╞ ü└ü┴#ê╞ ü┬┌#ê╞ ü├σ#ê╞ ü─üD#ê╞ ü┼ü╞#ê╞ ü╟ü╚#ê╞ ü╔ü╩#ê╞ ü╦ü╠#ê╞ ü═ü╬#ê╞ ü╧ü╨#ê╞ ü╤ü╥#ê╞ ü╙ü╘#ê╞ ü╒ü╓#ê╞ ü╫ü╪#ê╞ ü┘ü┌#ê╞ ü█ü▄#ê╞ ü▌üF#ê╞ ü▐ü▀#ê╞ üαüß#ê╞ üΓüπ#ê╞ üΣüσ#ê╞ üµüτ#ê╞ üΦüΘ#ê└ü┐üΩüδ#ê└┌üΩü∞#ê└üφüΩü∞#ê└üεüΩü∞#ê└σüΩü∞#ê└ΘüΩü∩#ê└üuüΩü∩#ê└δüΩü∩#ê└ü`üΩü∩#ê└üDüΩüδ#ê└üLüΩüδ#ê└üNüΩü≡#ê└üQüΩü∞#ê└üSüΩü±#ê└üUüΩü±#ê└αüΩü∞#ê└ü\\üΩü∞#ê└üZüΩü≥#ê└ü≤üΩü∩#ê└übüΩüδ#ê└ü╜üΩüδ#ê└üpüΩü⌠#ê└ü⌡üΩü∩#ê└ü{üΩü÷#ê└üÇüΩü≡#ê└üéüΩü⌠#ê└üäüΩü∞#ê└üåüΩü∞#ê└üìüΩü∞#ê└üÅüΩü∞#ê└üæüΩü≈#ê└ü¥üΩü⌠#ê└üíüΩü÷#ê└ü«üΩüδ#ê└ü▒üΩüδ#ê└ü╡üΩü°#ê└ü╣üΩü≡#ê└ü╗üΩü⌠#ê└ü┐üΩüδ#ê└ü∙üΩüδ#ê└ü╚üΩü∩#ê└ü╘üΩü⌠#ê└ü┌üΩü°#ê└üπüΩü≡#ê└üσüΩü·#ê└üßüΩü·#ê└ü√üΩüⁿ#ê└ü²üΩüⁿ#ê└ü■üΩüⁿ#ê└ü üΩüⁿ#ê└üüΩüⁿ#ê└üüΩüⁿ#ê└üüΩüⁿ#ê└üüΩüⁿ#ç" [put vi-undefined suppress-keymap t vi-com-map make-keymap define-key "" vi-mark-region "" vi-ask-for-info "" vi-backward-windowfull "" vi-do-old-mode-C-c-command "" vi-scroll-down-window "" vi-expose-line-below "" vi-forward-windowfull "" keyboard-quit "    " indent-relative-maybe "\n" vi-next-line " " vi-kill-line " " recenter "" vi-next-line-first-nonwhite "" "" vi-split-open-line "" previous-line "" vi-query-replace "" vi-isearch-backward "" vi-isearch-forward "" vi-transpose-objects "" vi-scroll-up-window "" scroll-up "" vi-kill-region "" Control-X-prefix "" vi-expose-line-above "" suspend-emacs "" ESC-prefix "" vi-unimplemented "" find-tag "" vi-locate-def "" " " forward-char "!" vi-operator "\"" vi-char-argument "#" universal-argument "$" end-of-line "%" vi-find-matching-paren "&" "'" vi-goto-line-mark "(" backward-sexp ")" forward-sexp "*" vi-name-last-change-or-macro "+" "," vi-reverse-last-find-char "-" vi-previous-line-first-nonwhite "." vi-redo-last-change-command "/" vi-search-forward "0" beginning-of-line "1" vi-digit-argument "2" "3" "4" "5" "6" "7" "8" "9" ":" vi-ex-cmd ";" vi-repeat-last-find-char "<" "=" ">" "?" vi-search-backward "@" vi-call-named-change-or-macro "A" vi-append-at-end-of-line "B" vi-backward-blank-delimited-word "C" vi-change-rest-of-line "D" "E" vi-end-of-blank-delimited-word "F" vi-backward-find-char "G" vi-goto-line "H" vi-home-window-line "I" vi-insert-before-first-nonwhite "J" vi-join-lines "K" "L" vi-last-window-line "M" vi-middle-window-line "N" vi-reverse-last-search "O" vi-open-above "P" vi-put-before "Q" vi-quote-words "R" vi-replace-chars "S" vi-substitute-lines "T" vi-backward-upto-char "U" "V" "W" vi-forward-blank-delimited-word "X" call-last-kbd-macro "Y" vi-yank-line "Z" make-sparse-keymap "ZZ" vi-save-all-and-exit "[" "\\" "]" "^" back-to-indentation "_" "`" vi-goto-char-mark "a" vi-insert-after "b" backward-word "c" "d" "e" vi-end-of-word "f" vi-forward-find-char "g" vi-beginning-of-buffer "h" backward-char "i" vi-insert-before "j" "k" "l" "m" vi-set-mark "n" vi-repeat-last-search "o" vi-open-below "p" vi-put-after "q" vi-replace "r" vi-replace-1-char "s" vi-substitute-chars "t" vi-forward-upto-char "u" undo "v" vi-verify-spelling "w" vi-forward-word "x" vi-kill-char "y" "z" vi-adjust-window "{" backward-paragraph "|" vi-goto-column "}" forward-paragraph "~" vi-change-case "" delete-backward-char point-moving-unit char line next-line forward-line search match sexp rev-find vi-re-search-forward find vi-re-search-backward WORD rev-search word vi-forward-char paragraph mark-page region mark-paragraph mark-word mark-sexp mark-defun mark-whole-buffer mark-end-of-sentence mark-c-function] 4)
  30. (defvar vi-mark-alist nil "\
  31. Alist of (NAME . MARK), marks are local to each buffer.")
  32. (defvar vi-scroll-amount (byte-code "└ ┴Ñç" [window-height 2] 2) "\
  33. Default amount of lines for scrolling (used by " ^D "/" ^U ").")
  34. (defvar vi-shift-width 4 "\
  35. Shift amount for " < "/" > " operators.")
  36. (defvar vi-ins-point nil "\
  37. Last insertion point.  Should use 'mark' instead.")
  38. (defvar vi-ins-length nil "\
  39. Length of last insertion.")
  40. (defvar vi-ins-repetition nil "\
  41. The repetition required for last insertion.")
  42. (defvar vi-ins-overwrt-p nil "\
  43. T if last insertion was a replace actually.")
  44. (defvar vi-ins-prefix-code nil "\
  45. Code to be eval'ed before (redo-)insertion begins.")
  46. (defvar vi-last-find-char nil "\
  47. Save last direction, char and upto-flag used for char finding.")
  48. (defvar vi-last-change-command nil "\
  49. Save commmands for redoing last changes.  Each command is in (FUNC . ARGS)
  50. form that is ready to be 'apply'ed.")
  51. (defvar vi-last-shell-command nil "\
  52. Save last shell command given for \"!\" operator.")
  53. (defvar vi-insert-state nil "\
  54. T if it is in insert state.")
  55. (defvar vi-search-last-command nil "\
  56. Save last search command for possible redo.")
  57. (defvar vi-mode-old-local-map nil "\
  58. Save the local-map used before entering vi-mode.")
  59. (defvar vi-mode-old-mode-name nil "\
  60. Save the mode-name before entering vi-mode.")
  61. (defvar vi-mode-old-major-mode ni